C
C *** LAST REVISED ON  3-AUG-1987 11:52:23.92
C *** SOURCE FILE: [DL.GRAPHICS.LONGLIB]NORAMLIB.FOR
C
C *********************************************************************
C
C  CREATED BY D. LONG   NOV, 1983
C
C  THIS FILE CONTAINS DUMMY ROUTINES TO REPLACE THE RAMTEK
C  ROUTINES IN THE LONGLIB GRAPHICS LIBRARY. 
C
C  SOURCE CODE IN THIS FILE ARE COMPLETELY ANSI FORTRAN 77 COMPATIBLE
C  WITH THE EXCEPTION OF SUBROUTINE NAME LENGTHS.
C
C *********************************************************************
C
	INTEGER FUNCTION IRMCHAN()
	IRMCHAN=-1
	RETURN
	END
C
	SUBROUTINE PLOTRM()
	RETURN
	END
C
	SUBROUTINE RFACTOR()
	RETURN
	END
C
	SUBROUTINE RPLOTS()
	RETURN
	END
C
	SUBROUTINE RMPEN()
	RETURN
	END
C
	SUBROUTINE RTERM()
	RETURN
	END
C
	SUBROUTINE RAMOPEN(ICHAN)
C
C	DUMMY COMMON BLOCK
C
	COMMON /RAMTEKIO/IC
	WRITE(*,10)
10	FORMAT(' *** RAMTEK ROUTINES NOT AVAILABLE IN THIS LIBRARY ***')
	IC=-1
	ICHAN=-1
	RETURN
	END
C
	SUBROUTINE RAMCLOSE()
	ENTRY REFDIS()
	RETURN
	END
C
	SUBROUTINE RMRESET()
	RETURN
	END
C
	SUBROUTINE RAMOUT()
	RETURN
	END
C
	SUBROUTINE RMPLOT()
	RETURN
	END
C
	SUBROUTINE RMTEXTURE()
	RETURN
	END
C
	SUBROUTINE RMCLEAR()
	RETURN
	END
C
	SUBROUTINE RAMOUTIN()
	RETURN
	END
C
	SUBROUTINE RMREADCURSOR()
	RETURN
	END
C
	SUBROUTINE RMREADCOL()
	RETURN
	END
C
	SUBROUTINE RMWRITECOL()
	RETURN
	END
C
	SUBROUTINE RMREADBYTE()
	RETURN
	END
C
	SUBROUTINE RMREADWORD()
	RETURN
	END
C
	SUBROUTINE RMWRITEBYTE()
	RETURN
	END
C
	SUBROUTINE RMWRITEWORD()
	RETURN
	END
C
	SUBROUTINE RMSTART()
	RETURN
	END
C
	SUBROUTINE RMWIND()
	RETURN
	END
C
	SUBROUTINE RMDIR()
	RETURN
	END
C
	SUBROUTINE RMZOOM()
	RETURN
	END
C
	SUBROUTINE RMPAN()
	RETURN
	END
C
	SUBROUTINE RMSETCUR()
	RETURN
	END
C
	SUBROUTINE RMTEXT()
	RETURN
	END
C
	SUBROUTINE RMFNTSIZE()
	RETURN
	END
